5 REM ** ROBOSPY **
10 POKE 53280,5:POKE 53281,11:POKE 646,15
15 LET SP=0.4
20 LET H$="SONIC RULZ!"
25 LET H=100
30 LET K=0:LET S=0:LET L=1
40 PRINTCHR$(147)
50 PRINT"";TAB(11);" *** ROBOSPY *** "
55 PRINT"INSTRUCTIONS : (L) FOR LEFT"
56 PRINTTAB(15)"(R) FOR RIGHT"
60 PRINT"";TAB(10);"PRESS SPACE TO BEGIN"
70 GET C$
80 IF C$<>CHR$(32) THEN GOTO 70
90 PRINT CHR$(147):PRINT:PRINT
100 IF K=5 THEN LET L=L+1:LET K=0
110 LET M$=""
120 LET C$=""
130 FOR T=1 TO L
140 LET N=RND(1)
150 IF N>0.5 THEN PRINT"LEFT":LET M$=M$+"L"
160 IF N<0.5 THEN PRINT"RIGHT":LET M$=M$+"R"
170 NEXT T
180 LET K=K+1
190 FOR D=1 TO 200*L*SP
200 GET C$
210 NEXT D
220 PRINT CHR$(147):PRINT:PRINT
230 LET E=0
240 PRINT"WHAT ARE THE DIRECTIONS"
250 FOR T=1 TO L
260 PRINT"?";
270 GET C$
280 IF C$<>"R"AND C$<>"L"THEN GOTO 270
290 PRINT C$
300 IF C$<>MID$(M$,T,1) THEN LET E=1
310 NEXT T
320 IF E=0 THEN LET S=S+L
340 IF E=1 THEN PRINT"YOU LOST HIM!SOME SPY!"
350 PRINT"SCORE = ";S
360 PRINT"HIGH SCORE =";H;"BY ";H$
365 IF E=1 AND S>HTHEN LET H=S:GOSUB 410
370 IF E=1 THEN FORT=1 TO 1000:NEXT:GOTO 500
380 FOR D=1 TO 500*SP
390 NEXT D
400 GOTO 90
410 PRINT"THAT IS THE HIGH SCORE!"
420 PRINT"PLEASE TYPE YOUR NAME"
430 INPUT H$:RETURN
499 :
500 REM ** ANOTHER ONE IN THE HOUSE **
505 PRINT"DO YOU WANT TO PLAY ANOTHER??? ";
510 GET A$:IF A$="Y" THEN 30
520 IF A$<>"N" THEN 510
530 PRINT A$:FORT=1 TO 1000:NEXT:LOAD"THE MAIN MENU/BM",8,1